function [f2 p2] = FreqAmplitudeGraphInEpoch(x)

    L  = length(x);
    n  = pow2(nextpow2(L));
    Fs = 100;
    y  = fft(x,n);
    f2 = (1:n/2)*(Fs/n);
    p  = y.*conj(y)/n;
    p2 = p(1:n/2);

end